unit formulariopadraodecadastros;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TfrmFormularioPadraodeCadastros = class(TForm)
    pan1: TPanel;
    pan2: TPanel;
    pan3: TPanel;
    btnGravar: TBitBtn;
    btnExcluir: TBitBtn;
    btnCancelar: TBitBtn;
    btnSair: TBitBtn;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFormularioPadraodeCadastros: TfrmFormularioPadraodeCadastros;

implementation

{$R *.DFM}

procedure TfrmFormularioPadraodeCadastros.FormActivate(Sender: TObject);

begin
  btnGravar.Enabled:=False;
  btnExcluir.Enabled:=False;
  btnCancelar.Enabled:=False;
  btnSair.Enabled:=True;
  pan1.Enabled:=True;
//  pan2.Enabled:=False;
end;

end.
